home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / 4cmp22s.zip / UNSCREEN.4TH < prev    next >
Text File  |  1994-10-30  |  1KB  |  55 lines

  1. \ UNSCREEN  PROGRAM, BY TOM ALMY.
  2. \ THIS PROGRAM IS COPYRIGHT (C) 1985 BY TOM ALMY,
  3. \ ALL RIGHTS RESERVED.
  4. \ Permission is granted to registered users of ForthCMP to sell or distribute
  5. \ computer programs incorporating the compiled contents of this file.
  6.  
  7.  
  8. \ YOU MIGHT ALSO WANT TO MAKE THIS SMARTER, LIKE DELETING
  9. \ EXTRA BLANK LINES, "-->" COMMANDS, START ON SCREEN 1 OR 2...
  10.  
  11. 100 MSDOS
  12. SCONSTANT SDEFSTR SCR" ( SOURCE DEFAULTS TO .SCR )
  13. SCONSTANT DDEFSTR 4TH" ( DESTINATION  DEFAULTS TO .4TH )
  14. 16384 CONSTANT BUFSIZ
  15. INCLUDE FILTER
  16.  
  17. 0 1 IN/OUT
  18. : UNSCREEN?   ( -- successflag )
  19.   HERE 64 ACCEPT  ( get a line )
  20.   DUP 0> IF (  got one )
  21.       HERE SWAP -TRAILING  TYPE  CR
  22.       TRUE
  23.   ELSE
  24.       DROP FALSE
  25.   THEN
  26.   ;
  27.  
  28. 0 0 IN/OUT 
  29. : NOTICE  CONSOLE  CR
  30.   ." FORTH UN-SCREEN CONVERSION PROGRAM " CR
  31.   ." COPYRIGHT (C) 1985 BY THOMAS ALMY " CR ;
  32.  
  33. 0 0 IN/OUT 
  34. : USAGE   CONSOLE
  35.  ." USAGE:  UNSCREEN  [SCRFILE] [TXTFILE] " CR
  36.  ." where SCRFILE (default .SCR) is a file of Forth screens" CR
  37.  ."  if absent or `-' then standard input is used" CR
  38.  ." and TXTFILE (default .4TH) is output file." CR
  39.  ABORT
  40.   ;
  41.  
  42. : MAIN
  43.     SETBUFS ( allows I/O )
  44.     NOTICE    ( Welcome Message )
  45.     SETFILES IF USAGE THEN ( Indicate failure )
  46.     OPTIONSTRING CELL+ @ IF USAGE THEN
  47.     BEGIN  UNSCREEN? 0= UNTIL
  48.     BYE ;
  49.  
  50. INCLUDE DOS2
  51. INCLUDE FORTHLIB
  52.  
  53. END
  54.  
  55.